home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / oledem / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-07  |  1.2 KB  |  49 lines
  1. Option Explicit
  2.  
  3. Global Const DATABASE_NAME = "docs.mdb"
  4. Global Const CONNECT_STRING = ""
  5. Global Const OLE_MAX_VERBS = 10
  6.  
  7. Global Const DOCUMENT_TYPE_ACCESS1XOLE = 0
  8. Global Const DOCUMENT_TYPE_OLE2 = 1
  9. Global Const DOCUMENT_TYPE_MAX = 1
  10.  
  11. Global MDINew As Integer
  12. Global db As Database
  13. Global sDocumentName As String
  14. Global iDocumentType As Integer
  15.  
  16. 'Ole constants
  17. 'Comment out if already defined
  18. Global Const OLE_ACTIVATE = 7
  19. Global Const OLE_DELETE = 10
  20. Global Const OLE_FETCH_VERBS = 17
  21. Global Const OLE_INSERT_OBJ_DLG = 14
  22. Global Const OLE_NONE = 3
  23. Global Const OLE_CHANGED = 0
  24.  
  25. Sub Main ()
  26.     'Change file path to this app and supply nicer title
  27.     ChDir app.Path
  28.     app.Title = "VB Ole Access Demo"
  29.  
  30.     'Open the access database, constants set in OLE2MOD2
  31.     On Error GoTo ErrorOpeningDatabase
  32.     Set db = OpenDatabase(DATABASE_NAME, False, False, CONNECT_STRING)
  33.  
  34.     frmMain.Show
  35.  
  36.     Exit Sub
  37.  
  38. ErrorOpeningDatabase:
  39.     If DATABASE_NAME <> "" Then
  40.         MsgBox ("Could not open " + DATABASE_NAME + "!")
  41.         MsgBox ("Error " + Error)
  42.     Else
  43.         MsgBox ("Could not connect to " + CONNECT_STRING + "!")
  44.         MsgBox ("Error " + Error)
  45.     End If
  46.     End
  47. End Sub
  48.  
  49.